RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
' DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH Li 


® 

® 

® 

® 

® 

® 

® 

: N RE OR AN HE * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; THER THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
4 * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

® 

® 

*® 

® 

” 

a 
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!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
's CORPORATION. 


!* DIGITAL ASSUMES NO RESPONS 
!# SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


BILITY 
IS NGT SUPPLIED BY DIGITAL. 
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i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: Processes the .FOOTNOTE and .END FOOTNOTE commands. 
ENVIRONMENT: Transportable 

' AUTHOR: R.W. Friday CREATION DATE: September, 1978 


SOOONAVEWN —$ OC OONAOULS WN SH OOODNOUS WN OOONOUS wn 
a at tS Ss Ss SS Ss 0 dS Ss SS Ss 2 OOOOO 

a 
oO 
v 
m 
z 
o 
oO 
z 
. 

4 
oO 
4 
oo 
_" 
_— 
mm 
~ 
oO 
ze 
2 
J 
Oo 
a 
2 
m 
z= 
mn” 
=x 
_ 
vw 
oO 
"Zz 


Be Se Se Se Se Se Se SH Fe Se Oe Oe Oe Oe Be Ss Oe Ss Oe Se Oe Be Se Se Oe Se Oe Se Se Oe Oe Se SHEESH ee Se SESH ee 


SOOSCOCSCOSSOSOSOSOSOOOSOSOOOSOOOOOOOOOOO 


FAWNAWAW NIN POPUP NUNONOPUNYDD O s 
So 


Process .FN and .END FOOTNOTE directives sf -1984 00:30: AX-11 Bliss-32 V4.0-7 Pa 1 
16- : 382 99:39:98 RUNOFF ..SRCJFNONLY. Bits = (1) 
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8 | 
Process .FN and .END FOOTNOTE directives 1b-s Sep-1984 0: AX-11 Bliss-32 V4.0-7 Pa ony 
oon 500 Revision History 14-Sep 71984 0: ae 93 RUNOFF ..SRCJFNONLY. Bite ~ (28 
; re 41 1 ZSBTTL ‘Revis ion History’ 
3 tz ? ! ;™ MODIFIED ‘BY: 
> 45 44 1 i 029 R R00029 Ron Randall 14-Apr-1983 
: ¢ rf : Fixed bug in footnote numbering code. 
: 48 047 ii 028 REROOO28 Ron Randall 06-Apr-1983 
H 4 Bes 1 For DSRPLUS: Added footnote numbering code. 
: i 030 1} 027 KFA00027 Ken Alde 16-Mar-1983 
3 ¢ 051 ! PUSH/POP_sca now visible. to DSR. 
@ tees: ec) 
3 5 054 1! Global edit of all modules. Updated module names, idents, 
; $ 039 ‘ea copyright dates. Changed require files to BLISS library. 
: §8 0057 1 


026 REROO026 Ron Randall 07-Mar-1983 
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FNONLY Process .FN and .END FOOTNOTE directives 18-5 Sep 0: AX-11 Bliss-32 V4.0-74 Pa 3 
Oo~000 Module Level Declarations 14-Sep 71882 9: 30 93 RUNOFF .SRCJFNONLY.BLI; - (3) 


; $9 2 } XSBTTL ‘Module Level Declarations’ : 
i S 69 1 ! INCLUDE FILES: $ 
: 6 61 1! ; 
; 64 66 1 LIBRARY "NXPORT: XPORT ; ' XPORT Libra ’ 
3 9? 087 } REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions : 
; 69 U 0195 1 IF DSRPLUS THEN 3 
$ eB U 138 1 7 he ell TREQTDPLL IB’: ! DSRPLUS BLISS Library : 
3 % 198 1 RIPRARY *REQ:DSRLIB'; ! DSR BLISS Library $ 
; 199 1 FI : 
:  # O50) 1 
3 ee 0 8 : EXTERNAL REFERENCES: : 
; 06 1 EXTERNAL LITERAL 3 
: a 8 b2 ' RINTES : UNSIGNED (8); ; 
; 79 0 09 1 EXTERNAL 3 
; 0208 1 FNCT : FNCT_DEFINITION ! General information about footnotes : 
; 8 0209 1 FNESIZ : FN-EXT_SIZE_DEFINITION, ! Lines in each peneine footnote ; 
3 Hf 0210 1 FNISIZ : FN_INT_SIZE_DEFINITION, ! TSF/MRA sets per pending footnote 3 
; 8 0211 1 GCA : GCA_DEFINITION; 3 
: «84 0 \¢ 1 IRA : FIXED_STRING, 3 
> 8 1 1 KHAR, . 3 
3 86 14°=«71 LSTCHR : REF \cCTOR, 3 
; 87 0215 1 LSTLCH : REF VECTOR, 3 
: 88 0 1 1 LSTRCH : REF VECTOR, 3 
; 0217 1 LSTLDD : REF VECTOR 3 
:; 90 0 18 1 LSTCNT : REF COUNTED_LIST, ; 
: 91 021 1 LSTSKP : REF VECTOR 3 
; 4 0 0 1 MRA : REF FIXED STRING, ; 
: 9 ae NUMPRM : NUMPRM_DEF INE : 
> 94 02 : 1 PDT : REF PDT_DEFINITION, ; 
; 0 1 PHAN : PHAN DEFINITION, : 
: 96 0224 1 SCA : SCA_DEFINITION, . 
; 44 0225 : TSF : TSF— DEFINITION; ; 
; 99 $6 1 EXTERNAL 3 
; 100 0228 1 FOOMRA : FIXED_STRING ‘Substitute MRA, : 
; 101 0229 1 FOOPDT : VECTOR fPDT Size}. 'Save area for peregraph stuf. 
§ Ht 0230 1 FOOSCA : VECTOR CSCA Sige e ‘Save area for 
: 1 7 F_LIST : COUNTED LIST ° ‘Substitute .LIST counters 
ey ¢ 1 F-LCHR : VECTOR f ° ‘Substitute .LIST bullet char. 
3; 105 1 F_LSKP_ : VECTOR ‘Substitute .LIST EL spacing. 
3 196 4 1 F_LLCHR : VECTOR e ‘Substitute left character 
; 5 1 F_LRCHR : VECTOR ° ‘Substitute right character 
; 108 § 1 F LOD : VECTOR ‘ 'Susbtitute display descriptor. 
3 6 : FOOTSF : VECTOR CTSF_SIZE); ‘Substitute TSF area 
3 111 § 1 EXTERNA 
; \'§ 40 1 FOH 
> 14 41 1 FOH | 
> 114 4¢ 1 FOHDD 
; i995 45 1 F 
; 6116 44 1 F | 
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EXTERNAL LITERAL 
RNFGFC, 
RNF TMF, 
RNF UME ; 


EXTERNAL LITERAL 
S_FMRA; ‘Allocated size for footnote MRA. 

IF DSRPLUS ZTHEN 

XTERNAL ROUTINE 


. 


U 
OUTCRG; 


EXTERNAL ROUTINE 
ERM 


ERMA, 
ERML, 
ERMN 
FOOF IL, 
OUTNJ 

. SETCAS; 

i OWN STORAGE : 


PP_SCA : $H_R_SCA_BLOCK; ‘Used in PUSH_SCA, POP_SCA macros (defined in SCA.REQ). 


$3 
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F Y Process .FN and .ENT? FOOTNOTE directives 18-se -1984 00:30: AX-11 Bliss-32 V4.0-74 Pa 5 
v04- FN == body of routine 1 ~3007} 387 99:30:95 RUNOFF .SRCJFNONLY.BLI; oe vend 
s 191 78 1 ZSBTTL ‘FN == body of routine’ 
; ; § 7 } GLOBAL ROUTINE fn (handler_code) : NOVALUE = 
: 154 1 !44 
: ; 5 ! FUNCTIONAL DESCRIPTION: | 
; ; ? : } Processes the .FOOTNOTE and .END FOOTNOTE commands. 
: 139 6 | FORMAL PARAMETERS: 
; 19) 8 ! handler_code - Indicates which command is to be processed. 
; 188 0 1! IMPLICIT INPUTS: 
: 6164 91 1! 
: 19? 35 } } numprm = Contains a numper, as processed by GETNUM. 
: 169 94 1 | IMPLICIT OUTPUTS: None 
: 168 95 1! 
3 199 38 1 ! ROUTINE VALUE: 
; 109 8 4 : COMPLETION CODES: None 
; 17 99 1 | SIDE EFFECTS: None 
. Se 00 1 !-- 
3; 174 01 1 
s 175 0 o¢ BEGIN 
; 176 030 LOCAL 'To interchange GCA_NORMAL_XTN and 
: a4 Babe HOLD_FOOT_XTN; 'GCA_FOOT_XTN between .fn and .efn. 
: 179 30¢ SELECTONE .HANDLER_CODE OF 
a ho 2 
; 182 09 CH_FOOTNOTE) : 
; 0310 BEGIN 
: «(186 0311 
3 ! 5 ¥ 8 \§ ZIF DSRPLUS RTHEN 
: 18 U 0314 i If numbering footnotes, set up variables. 
: «#188 U B31? ! 
: 189 u0 1 IF .FNCT_NUMBERING 
; 190 U 031 THEN 
3; «6191 U 8 18 BEGIN 
3 4 u 0319 ! 
3 12? ? Flag the start of a numbered footnote. 
; 195 : ; FNCT_FIRST_LINE = 1; | 
: 199 : : Bump footnote number by one. Get left and right digits right. 
; 199 U 0326 FNCT_NUMBER_R = .FNCT_NUMBER_R + 1; 
; o1 u FNCT“NUMBER” = .FNCTNUMBER” + 1; 
; ‘ y 0399 IF .FNCT_NUMBER_R EQL 10 
3 $7 U 0 THEN 
3 U 1 BEGIN 
> 205 U é FNCT_NUMBER_R = 0; 
; 06 U FNCT“NUMBER"L = .FNCT_NUMBER_L + 1; 
; £0 U END; | 
| 
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U 5 
U § END; 
FI 
GCA_CONCAT = FALSE; ‘Don't allow .NO SPACE 
4 FNCT_N = .NUM_VALUE; iSave specified count. 
IF FOOFIL (FOO_OPOU) NEQ FOO_NORMAL 
THEN 


‘Couldn't oper. footnote file. 
RETURN; 


if .FNCT_COUNT GEQ FNCT_MAX 
THEN 


'Tell the user that he's ertenpting to define too many footnotes. 
‘Note that everything pretzede as if 


nothing was wrong. 
‘However, what eventua 


9 
ly happens, when .END FOOTNOTE occurs, 
‘is that the footnotes get merged together. As soon as a foutnote 
gets expanded and output however, everything continues along ok. 
'Note that relevant data structures have extra space allocated so 
He oc tot 609 :n8 can be pretty much avoided in this situation. 


WAI AIWww 
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| 
| 
; 
'Check for too many footnotes. 
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FNCT_COLLECTING = TRUE; ‘Officially collecting footnotes now. 
FNESTZ -FNCT COUNT = 0; 'Clear external size. 
FNISIZ C.FNCT_COUNT) = 0; 'Clear internal size. 
FOHTSF = .TSF; 'Save previous status of SCANT. 
FOHMRA = .MRA; 
: 'Save entire status of SCA. 
Z r$] PUSH_SCA; 'Save the special SCA bits that are SAVEd. 
4 368 INCR | FROM 0 TO SCA size - 100 
© = o . ; 
re $93 FOOSCA C.1) sta (.1) 
4 71 ! Initialize SCA to footnote environment. 
4 i SCA_LM = 0; 
4 7 SCA-FC = TRUE; 
4 374 SCA_FC_CASE = TRUE; 
4 75 SCA_NBITS = FALSE; 
4 ds SCA-WRD_NBITS = FALSE; 
5 7 SCA_WRD-CNBITS = FALSE; 
5 28 SCA-WRD-ACNBITS = FALSE; 
5 7 SCAWRD-FOOTW = 0; 
5 0 SCA-SECT_EMPTY = FALSE; 
2 1 SCA_FILL = TRUE; 
3 § SCA_JUSTIFY = ~6CA_AUTOJUST OR «SCA_JUSTIFY; ! Qbey -Cnojautojustify directive 
5 SCA_CROCK = .SCA_JOSTIFY; ! Obey .Cnojautojustify directive 
H 4 SCA_WRD_LST_UND = 0; 
5 SCA-WRD-LST-SP_ = 0; 
5 SCA_WRD_LST_JUS = 0; 
6 SCA_WRD_INT_L = 0; 
6 3 SCALURD_EXT i = Q; 
6 SCA_WRD_F_XTN = 0; | 
6 0 SCATWRD-L-XTN = 0; 
391 SCALWRD-LU_PNCT = FALSE; 
| 
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-WRD_LHYP_PTR = 0; 
t ergrer case conversion. 
CAS (.GCA_CASE); 


WRD_LST_HYP = FALSE; 
WR 


t up peregrenss for footnote. Characteristics are inherited 
om the main ogy of text. 
R I FROM O TO PDT sige - 100 

FOOPDT C.1) = .PBT (.1); 


FOHPDT = .PDT; ‘Remember previous paragraph settings. 
PDT = FOOPDT; !Point to footnote poresranh settines. 


'Set up for .LIST and related commands. 
FOHLST eLSTCNT; 'Save previous .LIST status. 


'Set up footnote .LIST information. 


ge 
C 


~DZ 


RT_DEC_NOZ; 
; 'Switch to footnote TSF. 
; ‘Switch to footnote MRA, 
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s 
= 
= 
= 
2 
= 
= 
= 
= 
s 
= 
= 
CNT 
CNT 
0 
0 
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INCR_I FROM 0 TO TSF_SIZE - 1 DO 
TSF C.1) = 0; 'Initialize footnote TSF. 


‘It is necessary here to explicitly reset the 

‘maximum size the MRA where the footnote text will be 
‘built up. This is because a previous footnote may have 
'been expanded and written into the document. And a 

‘call on FOOOUT destroys FS_MAXSIZE, since the various 
‘control cells are simply fudged in to allow the information 
‘to be read without here ¢ to first move it. Look in FOOFIL 


'(FOO_READ) to see where these cells are clobbered when 
; footnotes are read back in. 


ithe MRA size is reset using a global literal, defined in 
;GLBDAT as the allocated size of FOOMRA. 


FS_MAXSIZE (MRA) = S_FMRA; 
‘Now do normal MRA initialization. 
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0 FN == body of routine 14-Sep-1984 RUNOFF .SRCJFNONLY.BLI (4 
§ g FS_INIT (MRA); 
3 SCA_WRD_PNTR = .FS_NEXT (MRA); 
; SCA_WRD-CPEND = RINTES; ‘Current word is empty. 
: HOLB_FOOT_XTN = .GCA_FOOT_XTN; iSwitch normal and footnote 
; GCA_FOOT RIN = .GCA-NORMAL_XTN; §itransaction numbers, to remove 
GCALNORMAL_XTN = ,HOCD_FOOT-XTN; | 'FNCT dependency in OUTLIN. 
CH_END FOOTNOTE) : 

BEGIN 


if — -FNCT_ COLLECTING 
'User said .END FOOT without first saying .FN. 
ERMA (RNFUME, FALSE); 
RETURN; 


Sl taal ae ee a ae a ak ee ea 


OUTNJ (); ‘Terminate pending text. 
'NOTE:**#* Jt is important that the call on OUTNJ *NOT* be removed. 

'This is because the routine PUS, when it detects an ENDFOOTNOTE flag, 

inas no way of telling this routine via DOCM to call OUTNJ. If there 

‘were no ENDFOOTNOTE flag, or if the user says .END FOOTNOTE, there is 

ino problem, since the entries in RUNTAB.REQ for .END FOOTNOTE do 

‘indicate OUTNJ is to be called. 
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; i 

; 4 

; 4 

; 4 

; 2 4 | 

s S 4 

3 ; 4 

3 4 

. 2 4 

§ 3 ? 

; uy 04 XIF DSRPLUS XTHEN 

; ; : : Put out a blank Line separator for numbered footnotes. 

: 3 U 04 iF .FNCT_NUMBERING 

Hy U 04 THEN 

3 ; U 04 BEGIN 

: U 04 GUSKIP (1); 

; ; Y “ QUTCRG (); 

: U 04 i Set flag to indicate the end of a footnote. 

; 360 U 04 ! (This flag is normally set to 0. At the very start of 
3 ; 1 U 04 ' a footnote, it is set to 1 to indicate the first Line. 
3 oe U 04 ! At the end it is set to 2 to indicate the end. It is 
3 a7 . rf ; tested and reset to 0 (in FOONUM) very quickly.) 

: 365 U 04 FNCT_FIRST_LINE = 2; 

; 366 U 04 END; 

3 44 r 2FI 

; +4 d FNCT_COLLECTING = FALSE; 'Officially not collecting footnotes now. 
; 371 498 INCR I FROM_0 TO SCA_SIZE - 1 DO 

3 g ¢ ; SCA C.1] = .FOOSTA C.1); ‘Restore previous SCA. 
: ne 2 1 POP_SCA; ‘Restore the special SCA bits 

: 376 5 : ‘if the footnote tables have not overflowed, update the count of footnotes 
3 377 te ‘associated with this word. 

: 378 505 if (.FNCT_COUNT LSS FNCT_MAX) AND 
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'do is update footnote count information. 
ag eee 


'The document is being paged, so don't merge footnotes. 


N 
FNCT_COUNT = .FNCT_COUNT + 1; 
1 erecta = .FNCT WAITING + 1; 


ELSE 
'The document is not being paged. — 
'Merge all footnotes into one biggie. 
te ~FNCT_COUNT EQL 0 


iret is the first footnote in the .NOPAGING environment | 
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; 379 -PHAN_PAGING 1M LL footnotes if .NO PAGIN 
323 oF THEN r erge a ootnotes O PAGING 
: 7 $8 SCA_WRD_FOOTW = .SCA_WRD_FOOTW + 1; 
: : 10 MRA = .FOHMRA; 'Restore previous MRA. 
3 4 11 TSF = .FOHTSF; ‘Restore previous TSF. 
3 5 \§ PDT = .FOHPDT; 'Restore previous persgreph settings. 
; 386 51 LSTCNT = .FOHLST; 'Restore previous .LIST information. 
3 Ser 514 LSTCHR = .FOHLSC; 
; 388 515 LSTSKP = .FOHLSK; 
; 89 b218 LSTLCH = .FOHLCH; 
; 390 ga! LSTRCH = .FOHRCH; 
; 4 218 LSTLDOD = .FOHDD; 
: 39 03 0 'If the user used the outmoded .FN mn command (i.e., specifed what he believed : 
: 394 521 'the number of footnote Lines to be) verify that he indeed gave a correct 
s 3595 05 ¢ ‘value for ‘'n", ; 
; 396 05 IF (.FNCT_N NEQ .FNESIZ C.FNCT_COUNT]) AND 
; 97 03 4 THEN rT NCTAN NEQ 0) 
; 399 0526 'User specitied a count and it doesn’t agree with how big the footnote really is. 3 
: 400 0527 'Tell the user he made a mistake, and also how big the footnote really is. zl 
; ret Be 3 ERMN (RNFGFC, .FNESIZ C.FNCT_COUNT)); 3 ; 
: 40 0530 ‘Update some footnote statistics. 3 ( 
; 404 0531 'Note that three situations occur here, one of which is an error condition. 
; 405 peas If _ .FNCT_COUNT GEQ FNCT_MAX 
; 406 O23 THEN 
; 0534 'The error case. Statistics have been piling up in an extra 
; 0535 ‘Location in the tables. Merge that info with other information 
; be ° at? that the footnotes get merged. 
; 0538 FNISIZ CFNCT_MAX = 1] = .FNISIZ Rete! - 1) + .FNISIZ ET EO a: 
i 0539 FNESIZ CFNCT_MAX - 1) = .FNESIZ C.FNCT_COUNT - 1) + .FNESIZ C.FNCT_COUNTJ 
; 0540 END 
; B20) ELSE 
: 0368 'The normal situation. The tables won't overflow, and so all we have to 
O8c6 
| Beh 
; 0549 
3 6 0 
: 
: r 
3 
; 8 
. 9 

0 

1 
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; FNCT_COUNT = 1; 
: FNCT-READY = 1; 
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| 


ELSE 
Hey i e new footnote with first footnote 


'Note that FNCT_COUNT will not necessarily be 1. That's because 
'the user = have entered no paging mode after having accumulated 
‘some footnotes in paging mode. In any case, this new footnote gets 
‘arbitrarily counted in with the size of the very first footnote. 
FNESIZ £0} = .FNESIZ £83 + .FNESIZ rT COUNT dE 

pu eee OJ = .FNISIZ CO] + .FNISIZ C.FNCT_COUNT); 


HOLD FOOT _XTN = .GCA_FOOT_XTN; 'Switch normal and footnote 
GCA_FOOT_ RIN = .GCA”NORMAL_XTN;  itransaction numbers, to remove 
SCA_NORAAL TN = ,HOLB_FOOT_RTN; iFNCT dependency in OUTLIN. 


TES; 
END; 'End of FN 
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-TITLE FNONLY Process .FN and .END FOOTNOTE directives 
-IDENT \V04-000\ 


.PSECT $OWNS$,NOEXE,2 
00000 PP_SCA: .BLKB 48 
N 
CA, IRA 
CHR, LSTLCH 
STLOD, LSTCNT 
NUMPRM 


wa 2ZBra0O7 
oe | . 


“EXTRN RNFTMF, RNFUME. S_FMRA 
EXT RM, ERMA, ERML 

SEXTRN ERMN, FOOFIL, OUTNJ 

EX SETCAS 

.PSECT $CODE$,NOWRT,2 


9000 .ENTRY FN, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 = 0279 
MOVAB LSTCNT, RIT 
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Ame! Process .FN and .END FOOTNOTE directives 1 1 
v04-000 FN == body of routine 14-Sep-1 RUNOFF ..SRCJFNONLY.BLI; (4) | 
990000 0° EF 3 3A MOVAB PP ; : 
a Ae BO 00068 ROVL SERA PR: COE RO : 03 
0000005A &F 50 D 4 CMPL RO. rte F : 9336 ; 
0 } BEQL so : ; 
4 a +4 D4 1$ Orel beae4s + 0339 
08 AG 000000866 F pO 00 MOVL § NUMPRM+4, FNCT+8 : O338 | ; 
2 DD 0006 PUSHL # + 0342 ; 
000000006 FF 1 FB 0006 CALLS #1, FOOFIL ; : 
1 0 D4 06C CMPL ~=s RO, #1 : ; 
01 1 O06F BEQL 2 : ; 
04 1 RET : ; 
14 64 D1 0078 2$: CMPL = ENCT, #20 + 0348 : 
0D 19 0007 BLSS 3$ : : 
000000006 8F DD 00077 PUSHL  #RNF TMF + 0357 ; 
000000006 EF 4 FB 9070 CALLS #1, ERML : ; 
14 AG 1 00 00084 3$: MOVL #1. FNCT+20 : 0359 ; 
50 64 DO 00088 MOVL  FNCT : 0360 ; 
gan8 "7 b08e tet ENEStZ RO + 0361 
000000006 EF 68 DO 00091 MOVL TSF, FOHTSF : 036 : 
000000006 EF 69 DO 00098 MOVL MRA, FOHM > 036 ; 
63 00 Be DO 0009F MOVL  a@SCA+100, PP_ ; ; 
04 AS 04  B2 DO O00A3 MOVL @SCA+104, PP_SCA+4 3 3 
08 Az 08 B2 DO 000A8 MOVL  @SCA+108, PPTSCA+8 ; ; 
0c A3 0C B2 DO OOOAD MOVL @SCA+i12, PP_SCA+12 3 3 
10 AS 10 Be DO 000B2 MOVL @SCA+116, PPTSCA+16 ; ; 
14 AB 14 B2 00 90087 MOVL § @SCA+120, PP7SCA+20 : : 
16 A 18 B2 DO 000BC MOVL  @SCA+124, PPTSCA+24 : ; 
1c A 1¢ B2 DO 000C1 MOVL §§ @SCA+128, PP7SCA+28 ; : 
20 «AS 20 B2 dO 000C6 MOVL  @SCA+132, PPTSCA+32 : : 
24 «AS 24 B2 DO 000CB MOVL  @SCA+136, PPTSCA+36 : ; 
28 AB 38 Be DO 00000 MOVL  @SCA+140. PPTSCA+40 ; ; 
2c OAS C B2 DO 00005 MOVL  @SCA+144, PPTSCA+44 : ; 
50 D4 OOODA im t : 0368 ; 
00000000GEF 40 9C A240 D9 000DC 4$: MOVL SCACIJ, FOOSCALII > 0369 ; 
EE 50 OOO000S5F BF F3 O00E6 AOBLEQ #95, 1. 4$ : ; 
10 B2 D4 OOOEE CLRL aScA+i16 : 0372 ; 
6C A2 07 DO O00F1 MOVL #1, SCA+208 : 0374 ; 
30 A2 01 7D 000F5 MOVO #1 Scari4 : 0373 ; 
5¢ ag 7¢ O0r9 CLRQ = SCA+1 2 : 0376 ; 
64 Ad D4 OOOFC CLRL ScA+20 : 0378 : 
50 Ae D4 OFF CLRL Scat 0 ; 6 80 
04 B82 01 DO 00102 MOVL #1, aSCA+104 ; 1 
00 Be FF6G «6 SCC 0106 BISL2  aGCAtl6, aSCA+100 : 0 8¢ 
0c 8B 09 B2 DO 0010C MOVL a@SCA+ 96, aSCA+ii2 : 0 
0&8 C D4 0111 CLRL = SCA* > 0385 
OF C2 7C 113 CLRO  SCA+336 : 86 
C2 7¢€ 0011 CLRQ SCA+25 : 038 
0cO C2 7C 0611D CLRQ = SCA#29 : 0379 
0C8 Ce D4 00121 CLRL = SCA : 0390 
O0¢ C3 D4 00125 CLRL SCA : 0398 
EO ¢€? 7C 001 LRO = SCA#324 : 039 
D4 B86 DD 001 PUSHL  aGCA+128 : 0396 
000000006 EF 1 FB 001 CALLS #1, SETCAS : 
0 p4 001 + ee + 0401 
| 
| 
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FN == body of routine RUNOFF, FNONLY.BLI; 


PSECT SUMMARY 


Name Bytes Attributes 
SOWNS $8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, pth 'og Tera b bh fs 
SCODES 879 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


cccccece Symbols -<-<----- Pages Processing 
File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 
“$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 $6 7 86 00:00.3 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD,INITIAL,OPTIMIZE)/LIS=LIS$:FNONLY/OBJ=OBJ$:FNONLY MSRC$:FNONLY/UPDATE=(ENH$:FNONLY) 


; Size: 879 code : 48 data bytes 


Run Time: 00:24. 
Elapsed Time: 00: jee: 
Lines/CPU Min: 145 
oneness E-tes 15198 
nme | Used: 189 pages 
Compilation Complete 
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